home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm1.d64 / star cataloger (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  856b  |  23 lines
  1. 10 PRINT"[147]":GOSUB70
  2. 20 POKE 53281,0:POKE 53280,0:POKE2043,8
  3. 30 PRINT"[144]":PRINT""
  4. 40 PRINT "LOAD";CHR$(34);F$;CHR$(34)",8"
  5. 50 PRINT"RUN"
  6. 60 POKE631,13:POKE632,13:POKE198,2:END
  7. 70 POKE53280,0:POKE53281,0:IFFTHENRETURN
  8. 80 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
  9. 90 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  10. 100 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  11. 110 C$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
  12. 120 PRINTC$;:FORI=1TO3:PRINTA$C$B$C$;:NEXT
  13. 130 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
  14. 140 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  15. 150 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
  16. 160 POKE214,12:PRINT"[145]";:FORI=1TO32:PRINTA$;:NEXT:PRINT"[155]"
  17. 170 FORI=1TO5:READA$:GOSUB180:NEXT:GOTO190
  18. 180 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
  19. 190 F$="CATALOGER":POKE214,24:PRINT"[145]"SPC(13)"[204] [207] [193] [196] [201] [206] [199]":RETURN
  20. 200 DATA"[211] [212][160][193][160][210] [160][160][195] [193][160][212][160][193][160][204][160][207][160][199] [197] [210]","BY [202]EFF [202]ONES"
  21. 210 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #74","[211]UBSCRIPTIONS 1-800-831-2694"
  22. 220 DATA"[195]OPYRIGHT ([195]) 1990 [211]OFTDISK"
  23.